home *** CD-ROM | disk | FTP | other *** search
- | !Run file for Out to Lunch
- | © Peter Gaunt, 1992
-
- Set Lunch$Dir <Obey$Dir>
-
- if "<System$Path>" = "" then Error 0 System resources cannot be found
- RMEnsure ColourTrans 0.00 RMLOAD System:Modules.Colours
- RMENSURE ColourTrans 0.52 ERROR 'Colours' module not found or out of date
-
- Run <Lunch$Dir>.LunchSetUp
-
- Run <Lunch$Dir>.CountTasks
- Run <Lunch$Dir>.CheckALT
- IF ALT$Down THEN RUN <Lunch$Dir>.!RunConfig
-
- UNSET ALT$Down
- RMLoad <Lunch$Dir>.Lunch
- If Desktop$NumTasks>1 THEN Desktop_Lunch
-